VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{C6224240-A363-11D3-A46E-00C0DFE9982C}#4.0#0"; "BW5ZP36R.OCX"
Begin VB.Form frmCompression 
   Caption         =   " "
   ClientHeight    =   9795
   ClientLeft      =   165
   ClientTop       =   165
   ClientWidth     =   9540
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   9795
   ScaleWidth      =   9540
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame fraDecompression 
      Height          =   1095
      Left            =   240
      TabIndex        =   54
      Top             =   240
      Width           =   5415
      Begin VB.Label Label25 
         Alignment       =   2  'Center
         Caption         =   "Extracting the files for processing. Please stand by."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   840
         TabIndex        =   56
         Top             =   240
         Width           =   3975
      End
   End
   Begin VB.Frame fraCompression 
      Height          =   1095
      Left            =   240
      TabIndex        =   53
      Top             =   240
      Width           =   5415
      Begin VB.Label Label24 
         Alignment       =   2  'Center
         Caption         =   "Building the package for transmittal. Please stand by."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   600
         TabIndex        =   55
         Top             =   240
         Width           =   4215
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   8640
      Top             =   3480
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin BWZipCompress306.MaqZip MaqZip1 
      Left            =   5880
      Top             =   7080
      _ExtentX        =   1058
      _ExtentY        =   1058
   End
   Begin ComctlLib.ListView ListView1 
      Height          =   1695
      Left            =   360
      TabIndex        =   52
      Top             =   7800
      Width           =   8895
      _ExtentX        =   15690
      _ExtentY        =   2990
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   327682
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin ComctlLib.ProgressBar ProgressBar1 
      Height          =   495
      Left            =   240
      TabIndex        =   51
      Top             =   1560
      Width           =   5415
      _ExtentX        =   9551
      _ExtentY        =   873
      _Version        =   327682
      Appearance      =   1
   End
   Begin VB.CommandButton Command14 
      Caption         =   "Join files"
      Height          =   375
      Left            =   4680
      TabIndex        =   50
      Top             =   5760
      Width           =   975
   End
   Begin VB.TextBox Text12 
      Height          =   285
      Left            =   7440
      TabIndex        =   48
      Text            =   "1457664"
      Top             =   3420
      Width           =   855
   End
   Begin VB.CheckBox Check2 
      Caption         =   "Split the Zip file in multiples files"
      Height          =   255
      Left            =   6720
      TabIndex        =   47
      Top             =   3120
      Width           =   2535
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Use the system temp folder to store the temporary Zip file(recommended)"
      Height          =   255
      Left            =   360
      TabIndex        =   45
      Top             =   3120
      Value           =   1  'Checked
      Width           =   5415
   End
   Begin VB.TextBox Text11 
      Height          =   285
      Left            =   3480
      TabIndex        =   43
      Top             =   5040
      Width           =   2655
   End
   Begin VB.TextBox Text10 
      Height          =   285
      Left            =   360
      TabIndex        =   41
      Top             =   5040
      Width           =   3015
   End
   Begin VB.CommandButton Command13 
      Caption         =   "Load and show the help file"
      Height          =   375
      Left            =   3480
      TabIndex        =   39
      Top             =   6240
      Width           =   2175
   End
   Begin VB.CommandButton Command12 
      Caption         =   "Resume execution"
      Height          =   495
      Left            =   8160
      TabIndex        =   38
      Top             =   4440
      Width           =   1095
   End
   Begin VB.CommandButton Command11 
      Caption         =   "Pause execution"
      Height          =   495
      Left            =   6720
      TabIndex        =   37
      Top             =   4440
      Width           =   1095
   End
   Begin VB.CommandButton Command10 
      Caption         =   "Get Status"
      Height          =   495
      Left            =   8160
      TabIndex        =   36
      Top             =   3840
      Width           =   1095
   End
   Begin VB.CommandButton Command9 
      Caption         =   "Cancel operation"
      Height          =   375
      Left            =   6720
      TabIndex        =   35
      ToolTipText     =   "This will cancel the compression or decompression"
      Top             =   5040
      Width           =   2535
   End
   Begin VB.TextBox Text9 
      Height          =   285
      Left            =   360
      TabIndex        =   32
      Text            =   "*.*"
      Top             =   6360
      Width           =   3015
   End
   Begin VB.CommandButton Command8 
      Caption         =   "Get Zip file information"
      Height          =   375
      Left            =   7440
      TabIndex        =   25
      Top             =   6240
      Width           =   1815
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Maximum1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   230
      Left            =   3480
      TabIndex        =   24
      Top             =   4200
      Width           =   1335
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Normal"
      Height          =   230
      Left            =   3480
      TabIndex        =   23
      Top             =   4440
      Width           =   1335
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Minimum"
      Height          =   230
      Left            =   4800
      TabIndex        =   22
      Top             =   4440
      Width           =   1335
   End
   Begin VB.CommandButton Command4 
      Caption         =   "High"
      Height          =   230
      Left            =   4800
      TabIndex        =   21
      Top             =   4200
      Width           =   1335
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Browse/List"
      Height          =   375
      Left            =   3480
      TabIndex        =   18
      Top             =   5760
      Width           =   1095
   End
   Begin VB.TextBox Text8 
      Height          =   285
      Left            =   360
      TabIndex        =   17
      Text            =   "*.*"
      Top             =   3840
      Width           =   3015
   End
   Begin VB.TextBox Text7 
      Height          =   285
      Left            =   360
      TabIndex        =   15
      Text            =   "-o"
      Top             =   6960
      Width           =   3015
   End
   Begin VB.TextBox Text6 
      Height          =   285
      Left            =   5760
      TabIndex        =   14
      Text            =   "frmMain.txtDocumentsPath"
      Top             =   5760
      Width           =   3495
   End
   Begin VB.TextBox Text5 
      Height          =   285
      Left            =   360
      TabIndex        =   13
      Text            =   "glbSelectedFromDialogBox"
      Top             =   5760
      Width           =   3015
   End
   Begin VB.TextBox Text4 
      Height          =   285
      Left            =   360
      TabIndex        =   12
      Top             =   4440
      Width           =   3015
   End
   Begin VB.TextBox Text3 
      Height          =   285
      Left            =   6720
      TabIndex        =   7
      Text            =   "glbCEIFileName"
      Top             =   2760
      Width           =   2535
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   3720
      TabIndex        =   3
      Text            =   "frmFTPform.txtpathtokill.text"
      Top             =   2760
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   360
      TabIndex        =   2
      Text            =   "glbDocumentsPath "
      Top             =   2760
      Width           =   3015
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Decompress1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5760
      TabIndex        =   1
      Top             =   6240
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Compress2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6720
      TabIndex        =   0
      Top             =   3840
      Width           =   1095
   End
   Begin VB.Label Label23 
      Caption         =   "Disk size"
      Height          =   255
      Left            =   6720
      TabIndex        =   49
      Top             =   3480
      Width           =   735
   End
   Begin VB.Label Label22 
      Caption         =   "Temporary path being used :"
      Height          =   255
      Left            =   600
      TabIndex        =   46
      Top             =   3360
      Width           =   5655
   End
   Begin VB.Label Label17 
      Caption         =   "Normal"
      Height          =   255
      Left            =   4560
      TabIndex        =   44
      Top             =   3960
      Width           =   1575
   End
   Begin VB.Label Label21 
      Caption         =   "Select the Extended options value"
      Height          =   255
      Left            =   3480
      TabIndex        =   42
      Top             =   4800
      Width           =   2775
   End
   Begin VB.Label Label20 
      Caption         =   "Select the Extended options to compress"
      Height          =   255
      Left            =   360
      TabIndex        =   40
      Top             =   4800
      Width           =   3135
   End
   Begin VB.Label Label19 
      Height          =   375
      Left            =   5520
      TabIndex        =   34
      Top             =   7080
      Width           =   3855
   End
   Begin VB.Label Label18 
      Caption         =   "System error code returned :"
      Height          =   255
      Left            =   3480
      TabIndex        =   33
      Top             =   7080
      Width           =   2055
   End
   Begin VB.Label Label16 
      Caption         =   "Select the Zip entries to uncompress"
      Height          =   255
      Left            =   360
      TabIndex        =   31
      Top             =   6120
      Width           =   2895
   End
   Begin VB.Label Label15 
      Caption         =   "This section will list the files in the Zip file"
      Height          =   255
      Left            =   360
      TabIndex        =   30
      Top             =   7320
      Width           =   3015
   End
   Begin VB.Label Label14 
      Caption         =   "Select the processor usage of the control"
      Height          =   255
      Left            =   3480
      TabIndex        =   29
      Top             =   3720
      Width           =   3015
   End
   Begin VB.Label Label13 
      Height          =   255
      Left            =   5760
      TabIndex        =   28
      Top             =   7560
      Width           =   3615
   End
   Begin VB.Label Label12 
      Height          =   255
      Left            =   3000
      TabIndex        =   27
      Top             =   7560
      Width           =   2655
   End
   Begin VB.Label Label11 
      Height          =   255
      Left            =   360
      TabIndex        =   26
      Top             =   7560
      Width           =   2415
   End
   Begin VB.Label Label10 
      Height          =   375
      Left            =   5040
      TabIndex        =   20
      Top             =   6720
      Width           =   4215
   End
   Begin VB.Label Label9 
      Caption         =   "Error code returned : "
      Height          =   255
      Left            =   3480
      TabIndex        =   19
      Top             =   6720
      Width           =   1455
   End
   Begin VB.Label Label8 
      Caption         =   "Select the path of the files to compress"
      Height          =   255
      Left            =   360
      TabIndex        =   16
      Top             =   2520
      Width           =   2895
   End
   Begin VB.Label Label7 
      Caption         =   "Select the destination file"
      Height          =   255
      Left            =   6720
      TabIndex        =   11
      Top             =   2520
      Width           =   2295
   End
   Begin VB.Label Label6 
      Caption         =   "Select the options to decompress"
      Height          =   255
      Left            =   360
      TabIndex        =   10
      Top             =   6720
      Width           =   3135
   End
   Begin VB.Label Label5 
      Caption         =   "Select the path to the decompressed files"
      Height          =   255
      Left            =   5760
      TabIndex        =   9
      Top             =   5520
      Width           =   3015
   End
   Begin VB.Label Label4 
      Caption         =   "Select the file to decompress"
      Height          =   255
      Left            =   360
      TabIndex        =   8
      Top             =   5520
      Width           =   3255
   End
   Begin VB.Label Label3 
      Caption         =   "Select the options to compress"
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   4200
      Width           =   3135
   End
   Begin VB.Label Label2 
      Caption         =   "Select the destination path"
      Height          =   255
      Left            =   3720
      TabIndex        =   5
      Top             =   2520
      Width           =   2295
   End
   Begin VB.Label Label1 
      Caption         =   "Select the files to compress"
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   3600
      Width           =   2535
   End
   Begin VB.Menu compression 
      Caption         =   "Compression Options"
      Visible         =   0   'False
      Begin VB.Menu fix 
         Caption         =   "Fix damaged Zip file"
      End
      Begin VB.Menu fix2 
         Caption         =   "Force the fix of damaged Zip file"
      End
      Begin VB.Menu include 
         Caption         =   "Include  system  and  hidden  files"
      End
      Begin VB.Menu option4 
         Caption         =   "Compress files with best compression"
      End
      Begin VB.Menu option5 
         Caption         =   "Compress files with fastest compression"
      End
      Begin VB.Menu option6 
         Caption         =   "Store files - dont compress"
      End
      Begin VB.Menu option2 
         Caption         =   "Delete files in Zip"
      End
      Begin VB.Menu Lists 
         Caption         =   "Use a list file to select the files"
      End
      Begin VB.Menu option1 
         Caption         =   "Compress folders and subfolders"
      End
   End
   Begin VB.Menu decompression 
      Caption         =   "Decompression Options"
      Visible         =   0   'False
      Begin VB.Menu option9 
         Caption         =   "Test Zip integrity - verify files in Zip"
      End
      Begin VB.Menu option8 
         Caption         =   "Decompress files and junk pathnames - and always overwrite"
      End
      Begin VB.Menu option7 
         Caption         =   "Decompress files and always overwrite if existing"
      End
   End
   Begin VB.Menu extended 
      Caption         =   "Extended options"
      Visible         =   0   'False
   End
   Begin VB.Menu hlp 
      Caption         =   "Help of the control"
      Visible         =   0   'False
      Begin VB.Menu load 
         Caption         =   "Install and load the help of the control"
      End
      Begin VB.Menu delhelp 
         Caption         =   "Delete the installed help file"
      End
   End
   Begin VB.Menu about 
      Caption         =   "About"
      Visible         =   0   'False
   End
End
Attribute VB_Name = "frmCompression"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Dim Store As String

Private Sub about_Click()
MaqZip1.About
End Sub

Private Sub Check1_Click()

If Check1.Value = 1 Then
MaqZip1.ZipTempFolder = MaqZip1.GetSystemTempFolder   ' it will set the temporary path to the system temp path , normaly c:\windows\system if win95 or 98 and  c:\winnt\temp if winnt 40
'And you can define any other valid path in any of your HDs , removable or any other kind of drive isnot allowed as temporary path
Label22.Caption = "Temporary path being used : " & MaqZip1.ZipTempFolder
Else
MaqZip1.ZipTempFolder = ""   'It will make the compression function work without a temporary path

        If MaqZip1.ZipTempFolder = "" Then
        Label22.Caption = "Temporary path being used : <none>"
        Else
        Label22.Caption = "Temporary path being used : " & MaqZip1.ZipTempFolder
        End If

End If

End Sub

Private Sub Command1_Click()

On Error GoTo Error1
 
frmCompression.Caption = "Working..."

Screen.MousePointer = vbArrowHourglass 'The control is busy

Dim rett As Boolean


If Check1.Value = 1 Then
MaqZip1.ZipTempFolder = MaqZip1.GetSystemTempFolder   ' it will set the temporary path to the system temp path , normaly c:\windows\system if win95 or 98 and  c:\winnt\temp if winnt 40
'And you can define any other valid path in any of your HDs , removable or any other kind of drive isnot allowed as temporary path
Label22.Caption = "Temporary path being used : " & MaqZip1.ZipTempFolder
Else
        If MaqZip1.ZipTempFolder = "" Then
        Label22.Caption = "Temporary path being used : <none>"
        Else
        Label22.Caption = "Temporary path being used : " & MaqZip1.ZipTempFolder
        End If
        
End If


ric = MaqZip1.ZipCompress(Text1.Text, Text8.Text, Text2.Text, Text3.Text, Text4.Text, Text10.Text, Text11.Text)
        
        If Check2.Value = 1 Then
        
        Dim Ret As Boolean
        Dim NumberOfDisks As Long
        
        'The property LastZipFileUsed will return the last Zip file created
        'The argument NumberOfDisks will return the number of disks created
        
        
        Ret = MaqZip1.SplitZipFiles(MaqZip1.LastZipFileUsed, Text12.Text, NumberOfDisks)
        
                If Ret Then
                MsgBox "The split function have created " & NumberOfDisks & " in the destination folder "
                MsgBox "The first disk is " & MaqZip1.LastZipFileUsed & ".1  , and the last disk is " & MaqZip1.LastZipFileUsed & "." & NumberOfDisks
                
                'the following code will copy the files to diskettes
                
                Dim MsgRet As Long
                
               MsgRet = MsgBox("Do you want to copy the files created to diskettes ? ", vbOKCancel, "Split function ")
                
               If MsgRet = vbOK Then
               
                    Dim I As Long
                    
                    For I = 1 To NumberOfDisks
                    
                    MsgRet = MsgBox("Insert an empty diskette in the drive and click OK ", vbOKCancel, "File " & MaqZip1.LastZipFileUsed & "." & I)
                    
                         If MsgRet = vbOK Then
                         DoEvents
                         FileCopy MaqZip1.LastZipFileUsed & "." & I, "a:\disk" & "." & I
                         Else
                         MsgBox "The copy of the files to the diskette was cancelled"
                         Screen.MousePointer = vbNormal
                         Exit Sub
                         End If
                    
                    Next I
               
               End If
               
                
                Else
                MsgBox "Error in the split function "
                End If
        
        End If

Screen.MousePointer = vbNormal

frmCompression.Caption = Store

Exit Sub

Error1:
Screen.MousePointer = vbNormal
MsgBox Err.Number & " : " & Err.Description

End Sub

Private Sub Command10_Click()

MsgBox MaqZip1.Status

End Sub


Private Sub Command11_Click()

If MaqZip1.PauseExecution Then
frmCompression.Caption = "Execution paused"
End If

End Sub

Private Sub Command12_Click()

If MaqZip1.ResumeExecution Then
frmCompression.Caption = "Execution resumed"
End If

End Sub

Private Sub Command13_Click()

MaqZip1.Help

End Sub

Private Sub Command14_Click()

MsgBox "You need to select the first file to join "

Dim FirstFile As String
Dim DestFile As String
Screen.MousePointer = vbArrowHourglass
CommonDialog1.ShowOpen
If CommonDialog1.Filename = "" Then Screen.MousePointer = vbNormal: Exit Sub

If Dir(CommonDialog1.Filename) = "" Then Screen.MousePointer = vbNormal: Exit Sub 'verification of the file

FirstFile = CommonDialog1.Filename

MsgBox "You need to select a destination Zip file "

DestFile = InputBox("Enter the destination path and filename like this C:\mypath\myzip.zip' " & vbCrLf & "And you can use UNC paths also") 'CommonDialog1.Filename

Dim MsgRet As Long

MsgRet = MsgBox("Do you want to automatically detect the number of files to join ? ", vbOKCancel, "Selection")

If MsgRet = vbOK Then

Dim Ret As Boolean

Ret = MaqZip1.JoinZipFiles(DestFile, FirstFile)

        If Ret Then
        MsgBox "The Zip file was created in the destination as " & DestFile
        Else
        MsgBox "Error in the Join Function"
        End If

Else

Dim NumberOfDisks As Long

NumberOfDisks = InputBox("Type the number of disks that are required to reconstruct the Zip file ")

Ret = MaqZip1.JoinZipFiles(DestFile, FirstFile, NumberOfDisks)

        If Ret Then
        MsgBox "The Zip file was created in the destination as " & DestFile
        Else
        MsgBox "Error in the Join Function"
        End If
End If

Screen.MousePointer = vbNormal

End Sub



Private Sub Command2_Click()

frmCompression.Caption = "Working..."
Screen.MousePointer = vbArrowHourglass
MaqZip1.ZipUncompress Text5.Text, Text9.Text, Text6.Text, Text7.Text
Screen.MousePointer = vbNormal

End Sub

Private Sub Command3_Click()

Screen.MousePointer = vbArrowHourglass
CommonDialog1.ShowOpen
If CommonDialog1.Filename = "" Then Screen.MousePointer = vbNormal: Exit Sub
Text5.Text = CommonDialog1.Filename

ListView1.ListItems.Clear
Label11.Caption = ""
Label12.Caption = ""
Label13.Caption = ""

If Dir(CommonDialog1.Filename) = "" Then Screen.MousePointer = vbNormal: Exit Sub 'verification of the file

If MaqZip1.GetZipInfo(CommonDialog1.Filename) Then
Label11.Caption = "Number of files :  " & MaqZip1.NumberOfFiles
Label12.Caption = "Total compressed size : " & MaqZip1.TotalCompressedSize
Label13.Caption = "Total uncompressed size : " & MaqZip1.TotalUncompressedSize
End If
Screen.MousePointer = vbNormal

End Sub

Private Sub Command4_Click()
MaqZip1.CPUBoost = BWHigh
Label17.Caption = "High"
End Sub

Private Sub Command5_Click()
MaqZip1.CPUBoost = BWMinimum
Label17.Caption = "Minimum"
End Sub

Private Sub Command6_Click()
MaqZip1.CPUBoost = BWNormal
Label17.Caption = "Normal "
End Sub

Private Sub Command7_Click()
MaqZip1.CPUBoost = BWMaximum
Label17.Caption = "Maximum"
End Sub

Private Sub Command8_Click()
Screen.MousePointer = vbArrowHourglass
ListView1.ListItems.Clear
Label11.Caption = ""
Label12.Caption = ""
Label13.Caption = ""

CommonDialog1.ShowOpen

If Dir(CommonDialog1.Filename) = "" Then Screen.MousePointer = vbNormal:  Exit Sub 'verification of the file

If MaqZip1.GetZipInfo(CommonDialog1.Filename) Then
Label11.Caption = "Number of files :  " & MaqZip1.NumberOfFiles
Label12.Caption = "Total compressed size : " & MaqZip1.TotalCompressedSize
Label13.Caption = "Total uncompressed size : " & MaqZip1.TotalUncompressedSize
End If
Screen.MousePointer = vbNormal
End Sub

Private Sub Command9_Click()

MaqZip1.CancelOperation

End Sub

Private Sub delhelp_Click()
MaqZip1.DeleteHelpFile
End Sub

Private Sub extended_Click()

MsgBox " The extended option available at this moment is the '-x'  option to exclude files in the compression , more extended options will be added in the future "

'-x  to exclude files in the compression

Text10.Text = "-x"

'select what files you dont want in the compressed file

Text11.Text = "*.txt *.lst *.vbp *.frm"

End Sub

Private Sub fix_Click()
Text4.Text = "-F"
End Sub

Private Sub fix2_Click()
Text4.Text = "-FF"
End Sub

Private Sub Form_Activate()

'MsgBox "we are at frmCompression"

Dim clmX As ColumnHeader
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Filename", ListView1.Width / 3)
Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Date        Time", ListView1.Width / 4)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "CRC-32", ListView1.Width / 10)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Signature", ListView1.Width / 10)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Version", ListView1.Width / 15)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Compressed", ListView1.Width / 7)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Uncompressed", ListView1.Width / 7)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Ratio", ListView1.Width / 18)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Compression Type", ListView1.Width / 5)

ListView1.View = lvwReport

If Check1.Value = 1 Then
MaqZip1.ZipTempFolder = MaqZip1.GetSystemTempFolder   ' it will set the temporary path to the system temp path , normaly c:\windows\system if win95 or 98 and  c:\winnt\temp if winnt 40
'And you can define any other valid path in any of your HDs , removable or any other kind of drive isnot allowed as temporary path
Label22.Caption = "Temporary path being used : " & MaqZip1.ZipTempFolder
Else
MaqZip1.ZipTempFolder = ""   'It will make the compression function work without a temporary path

        If MaqZip1.ZipTempFolder = "" Then
        Label22.Caption = "Temporary path being used : <none>"
        Else
        Label22.Caption = "Temporary path being used : " & MaqZip1.ZipTempFolder
        End If

End If

Text1.Text = glbDocumentsPath
Text8.Text = "*.mdb"
Text4.Text = "-R"
Text2.Text = glbCEIFilePath
Text3.Text = glbCEIFileName

Command7_Click
Command1_Click


End Sub

Private Sub Form_Load()

Me.Height = 2850
Me.Width = 6135



ProgressBar1.Min = 0
ProgressBar1.Max = 100
Store = frmCompression.Caption


'do our thing
Dim clmX As ColumnHeader
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Filename", ListView1.Width / 3)
Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Date        Time", ListView1.Width / 4)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "CRC-32", ListView1.Width / 10)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Signature", ListView1.Width / 10)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Version", ListView1.Width / 15)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Compressed", ListView1.Width / 7)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Uncompressed", ListView1.Width / 7)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Ratio", ListView1.Width / 18)
    Set clmX = ListView1.ColumnHeaders. _
    Add(, , "Compression Type", ListView1.Width / 5)

ListView1.View = lvwReport

If Check1.Value = 1 Then
MaqZip1.ZipTempFolder = MaqZip1.GetSystemTempFolder   ' it will set the temporary path to the system temp path , normaly c:\windows\system if win95 or 98 and  c:\winnt\temp if winnt 40
'And you can define any other valid path in any of your HDs , removable or any other kind of drive isnot allowed as temporary path
Label22.Caption = "Temporary path being used : " & MaqZip1.ZipTempFolder
Else
MaqZip1.ZipTempFolder = ""   'It will make the compression function work without a temporary path

        If MaqZip1.ZipTempFolder = "" Then
        Label22.Caption = "Temporary path being used : <none>"
        Else
        Label22.Caption = "Temporary path being used : " & MaqZip1.ZipTempFolder
        End If

End If

'Text1.Text = "frmFTPform.txtpathtokill.text"
'Text8.Text = "*.*"
'Text4.Text = "-R"
'Text2.Text = "frmFTPform.txtpathtokill.text"
'Text3.Text = "frmFTPform.txtfiletosend.text"

Text5.Text = glbSelectedFromDialogBox
Text6.Text = frmMain.txtDocumentsPath

'MsgBox "Form Load"

If glbStart = True Then
    Command2_Click
    glbStart = False
    GoTo FinishIt
End If

If glbStart = False Then
    Text1.Text = glbDocumentsPath
    Text8.Text = "*.mdb"
    Text4.Text = "-R"
    Text2.Text = glbCEIFilePath
    Text3.Text = glbCEIFileName

 Command7_Click
 Command1_Click
End If


'MsgBox "Process completed"

'Unload Me
FinishIt:

End Sub

Private Sub include_Click()
Text4.Text = "-S"
End Sub


Private Sub Lists_Click()
MsgBox "PathOfTheFilesToCompress - Path where is located the list file" & vbCrLf & "FilesToCompress - Name of the list file , and you need to add a ? in front of it , like this '?mylist.lst' " & vbCrLf & "DestinationDir - Destination directory to the compressed file" & vbCrLf & "Options - The options that you want to pass to the function" & vbCrLf & vbCrLf & "This is a example of a list file , and you can use wildcards also" & vbCrLf & vbCrLf & "c:\windows\*.ini" & vbCrLf & "d:\backup\*.exe" & vbCrLf & "\\myserver1\mypath\*.*"

Text8.Text = "?MyList.lst"

End Sub

Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
Text9.Text = Item
End Sub

Private Sub load_Click()
MaqZip1.Help
End Sub

Private Sub MaqZip1_CreatingDir()
frmCompression.Caption = frmCompression.Caption & " Directory created"
End Sub

Private Sub MaqZip1_Errorcode(Errorcode As Long, Errordescription As String)

Label10.Caption = Errordescription
If Errorcode <> 0 Then
'frmCompression.Caption = "Errorcode event raised"
End If

End Sub

Private Sub MaqZip1_Finished()
frmCompression.Caption = "Finished"
End Sub

Private Sub MaqZip1_Progress(Position As Long)
ProgressBar1.Value = Position
End Sub

Private Sub MaqZip1_SplitZipFileProgress(ProgressValue As Long)
ProgressBar1.Value = ProgressValue
End Sub

Private Sub MaqZip1_SystemErrorCode(Errorcode As Long, Description As String)
Label19.Caption = Errorcode & "  :  " & Description
End Sub

Private Sub MaqZip1_TempProg(Myvalue As Long)
frmCompression.Caption = Myvalue
End Sub

Private Sub MaqZip1_ZipFileInformation(Filename As String, ZipDay As Long, ZipMonth As Long, ZipYear As Long, ZipHour As Long, ZipMinute As Long, ZipSecond As Long, ZipCRC32 As String, ZipSignature As Long, ZipVersion As Long, ZipCompressedSize As Long, ZipUncompressedSize As Long, ZipRatio As Long, ZipCompressionType As Long)
Set minhalista = ListView1.ListItems.Add(1, , Filename)
ListView1.ListItems.Item(1).SubItems(1) = ZipDay & "/" & ZipMonth & "/" & ZipYear & "  " & ZipHour & ":" & ZipMinute & ":" & ZipSecond 'this will format the values
ListView1.ListItems.Item(1).SubItems(2) = ZipCRC32
ListView1.ListItems.Item(1).SubItems(3) = ZipSignature
ListView1.ListItems.Item(1).SubItems(4) = ZipVersion
ListView1.ListItems.Item(1).SubItems(5) = ZipCompressedSize
ListView1.ListItems.Item(1).SubItems(6) = ZipUncompressedSize
ListView1.ListItems.Item(1).SubItems(7) = ZipRatio & "%"        'this will add the percentage simbol to the value

Select Case ZipCompressionType

Case 1
ListView1.ListItems.Item(1).SubItems(8) = "None"
Case 2
ListView1.ListItems.Item(1).SubItems(8) = "Super Fast"
Case 3
ListView1.ListItems.Item(1).SubItems(8) = "Fast"
Case 4
ListView1.ListItems.Item(1).SubItems(8) = "Normal"
Case 5
ListView1.ListItems.Item(1).SubItems(8) = "Maximum"

End Select

End Sub

Private Sub option1_Click()
Text4.Text = "-R"
End Sub

Private Sub option2_Click()
Text4.Text = "-d"
MsgBox "Select what files in the Zip you want to delete , and you can use wildcards like this -> *.txt  *.exe  *.* "
Text8.Text = "*.*"
End Sub


Private Sub option4_Click()
Text4.Text = "-9"
End Sub

Private Sub option5_Click()
Text4.Text = "-1"
End Sub

Private Sub option6_Click()
Text4.Text = "-0"
End Sub

Private Sub option7_Click()
Text7.Text = "-o"
End Sub

Private Sub option8_Click()
Text7.Text = "-o -j"
End Sub

Private Sub option9_Click()
Text7.Text = "-t"
MsgBox "The option to be inserted in decompression is  '-t' " & vbCrLf & _
"The errorcode will return the state of the Zip file , if it returns 0 or 1 , then the Zip file is ok , any different value will represent a bad Zip file , and you need to select what entry in Zip you want to test , insert an '*.*' to test all entries and the entire Zip file also or '*.txt' to test any txt file in the Zip ,  and the possibility of errors in this detection is very low , in our tests a unique single byte different in any place of the file can be detected by this verification despite the possibility to the file be decompressed  by the Infozip or Winzip method without errors  , to make the test we are using the normal Zip error detection and a new method of Zip error detection developed originally by BinaryWork Corp."
End Sub


